home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MOS / RANDOMGE.D < prev    next >
Encoding:
Modula Definition  |  1990-11-05  |  623 b   |  22 lines
  1.  
  2. DEFINITION MODULE RandomGen;
  3.  
  4. (* Zufallszahlengenerator mit Periode 2^32 und guten Spektraleigenschaften.
  5.    jm 15.6.87
  6. *)
  7.  
  8. PROCEDURE Randomize (seed: LONGCARD);
  9.   (* definiert Startpunkt des Generators.
  10.      Randomize (0L) initialisiert den Generator mit einem Zufallswert. *)
  11.   
  12. PROCEDURE RandomCard (min, max: CARDINAL): CARDINAL;
  13.   (* liefert Pseudo-Zufallszahl  min <= RandomCard () <= max *)
  14.   
  15. PROCEDURE Random (): LONGREAL;
  16.   (* Liefert Pseudo-Zufallszahl  0.0 <= Random01 () < 1.0  *)
  17.  
  18. PROCEDURE Rnd (): LONGCARD;
  19.   (* Liefert Pseudo-Zufallszahl  zw. 0 und MAX (LONGCARD)  *)
  20.  
  21. END RandomGen.
  22.